﻿Imports Model.Geometry
Imports Model.Midline

Namespace Section
    Public Class ParaCircleTunnel
        Public Hmidline As List(Of Object)
        Public Vmidline As V_MidLine
        Public Pts As List(Of Point3d)
        Public StartMIL As Double
        Public EndMIL As Double
        Public startNUM As Integer
        Public endNUM As Integer
        Public dist_L As Double
        Public dist_C As Double
        Public dist_SC As Double
        Public width_L As Double
        Public width_C As Double
        Public width_SC As Double
        Public DrawToCad As Boolean = False
        Public Report As Boolean = False
        Public DingGG As Double
        Public DiGG As Double

        Public Sub New()
            Pts = New List(Of Point3d)()
            Vmidline = New V_MidLine()
        End Sub

        Public Function CanUse() As Boolean
            If Hmidline.Count = 0 Or Pts.Count = 0 _
                Or dist_L = 0 Or dist_C = 0 Or dist_SC = 0 _
                Or width_L = 0 Or width_C = 0 Or width_SC = 0 _
                Or StartMIL = 0 Then


                Return False
            Else
                Return True
            End If
        End Function
    End Class
End Namespace
